   3 .
  10 :return 
 190 print "--------BOWLING--------",;goto 4000
 200 for I=-72to 72step 3;CX=I;TV=94;if TR(1)B=I;I=72
 210 next I;goto 3000
1500 clear ;for I=1to 11;print #2,I,;next I;B=72;Q=0
1504 print ;for I=42to 60step 2;TV=@(I-1);TV=@(I)
1505 if @(I-1)#88goto 1512
1506 Q=Q+10;if @(I+1)#88goto 1510
1507 Q=Q+10;if @(I+3)=88 Q=Q+10;goto 1518
1508 if @(I+3)#32 Q=Q+@(I+3)-48
1509 goto 1518
1510 if @(I+2)=47 Q=Q+10;goto 1518
1512 if @(I)#47goto 1516
1513 Q=Q+10;if @(I+1)=88 Q=Q+10;goto 1518
1514 if @(I+1)#32Q=Q+@(I+1)-48
1515 goto 1518
1516 if @(I)#32Q=Q+@(I)-48
1518 next I;for I=61to 64;TV=@(I);next I
1520 print ;print #1," FRAME=",P,"SCORE=",Q
1530 K=0;for I=0to 3;for J=0to I
1540 K=K+1;if @(K)#1goto 1560
1550 E=@(K+10);CX=E;F=Imul 12-30;CY=F;print #1,K,;box E,F,9,9,3
1560 next J;next I;if C=2gosub 3900;goto 1500
1565 CY=-30;print ;NT=0;if P<11goto 200
1570 if P=11if @(60)=47if C=0goto 200
1575 if P=11if @(59)=88goto 200
1580 if P=12if @(59)=88if @(61)=88if C=0goto 200
1585 print " HIT GO FOR NEW GAME";A=KP;goto 4000
2000 for M=Ito 10;K=@(20+M+J);@(K)=0;next M
2010 C=C+1;R=0;for I=1to 10;R=R+@(I);next I;R=10-R
2020 if C=1if R=10 @(39+Pmul 2)=88;C=2;goto 2050
2030 if C=2if R=10 @(40+Pmul 2)=47;goto 2050
2040 @(38+C+Pmul 2)=48+R
2050 goto 1500
3000 J=0;if B<0 J=10
3010 X=ABS(B);if X>46goto 2010
3020 if (@(1)=0)+(X>12)goto 3100
3030 Z=X+3040;goto Z
3040 for I=1to 6;@(I)=0;next I;@(8)=0;@(9)=0;goto 2010
3043 I=2;goto 2000
3046 I=1;goto 2000
3049 I=3;goto 2000
3052 if J=10 @(2)=0
3062 if J=0 @(3)=0
3072 @(1)=0;I=5;goto 2000
3100 if @(2)=0if J=10goto 3150
3110 if @(3)=0if J=0goto 3150
3120 if X<17 I=5;goto 2000
3130 if X<20 I=6;goto 2000
3140 if X<26 I=7;goto 2000
3150 if X<14 goto 2010
3160 if @(4)=0 if J=10 goto 3190
3170 if @(6)=0if J=0 goto 3190
3180 if X<38 I=8;goto 2000
3190 if X<44 I=10;goto 2000
3200 if X<47 @(7)=0;@(10)=0;goto 2010
3900 print ;CY=-38;print " TR(1)right FOR FRAME OR BALLup ";if TR(1)#1goto 3900
3910 NT=3;P=P+1;for K=1to 10;@(K)=1;next K;C=0;return 
4000 Q=0;P=0;gosub 3900;K=0;for I=0to 3;for J=0to I
4010 K=K+1;L=-12mul I+24mul J
4020 @(K+10)=L;next J;next I
4030 @(21)=7;@(22)=4;@(23)=1;@(24)=2;@(25)=8
4040 @(26)=5;@(27)=3;@(28)=6;@(29)=9;@(30)=10
4050 @(31)=10;@(32)=6;@(33)=1;@(34)=3;@(35)=9
4060 @(36)=5;@(37)=2;@(38)=4;@(39)=8;@(40)=7
4070 for I=41to 64;@(I)=32;next I
4080 goto 1500
>run 
